home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / cmpnew / cmptag.data < prev    next >
Text File  |  1986-07-10  |  3KB  |  111 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::compiler)
  5. lisp::tagbody
  6. compiler::c1tagbody
  7. compiler::c1special
  8. compiler::c2tagbody
  9. compiler::c2
  10. lisp::go
  11. compiler::c1go
  12. compiler::c2go
  13. lisp::tag
  14. (lisp::defstruct lisp::tag compiler::name compiler::ref compiler::ref-clb compiler::ref-ccb compiler::label compiler::unwind-exit compiler::var)
  15. system::defstruct-form
  16. system::is-a-structure
  17. ((compiler::name lisp::nil lisp::nil lisp::nil 0) (compiler::ref lisp::nil lisp::nil lisp::nil 1) (compiler::ref-clb lisp::nil lisp::nil lisp::nil 2) (compiler::ref-ccb lisp::nil lisp::nil lisp::nil 3) (compiler::label lisp::nil lisp::nil lisp::nil 4) (compiler::unwind-exit lisp::nil lisp::nil lisp::nil 5) (compiler::var lisp::nil lisp::nil lisp::nil 6))
  18. system::structure-slot-descriptions
  19. system::structure-include
  20. system::structure-print-function
  21. system::structure-type
  22. system::structure-named
  23. compiler::tag-name
  24. (lisp::tag . 0)
  25. system::structure-access
  26. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 0 system::v))
  27. system::setf-lambda
  28. system::setf-update-fn
  29. system::setf-method
  30. system::setf-documentation
  31. compiler::tag-ref
  32. (lisp::tag . 1)
  33. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 1 system::v))
  34. compiler::tag-ref-clb
  35. (lisp::tag . 2)
  36. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 2 system::v))
  37. compiler::tag-ref-ccb
  38. (lisp::tag . 3)
  39. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 3 system::v))
  40. compiler::tag-label
  41. (lisp::tag . 4)
  42. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 4 system::v))
  43. compiler::tag-unwind-exit
  44. (lisp::tag . 5)
  45. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 5 system::v))
  46. compiler::tag-var
  47. (lisp::tag . 6)
  48. ((system::x) (system::v) (lisp::list 'system::structure-set system::x ''lisp::tag 6 system::v))
  49. 7
  50. system::structure-offset
  51. (compiler::make-tag)
  52. system::structure-constructors
  53. system::structure-documentation
  54. compiler::*tags*
  55. :name
  56. :ref
  57. :ref-ccb
  58. :ref-clb
  59. lisp::progn
  60. compiler::*last-label*
  61. 1
  62. compiler::*unwind-exit*
  63. compiler::*compiler-output1*
  64. compiler::*exit*
  65. compiler::*value-to-go*
  66. compiler::trash
  67. compiler::*vs*
  68. compiler::frame
  69. compiler::*clink*
  70. compiler::*ccb-vs*
  71. 0
  72. "The tag name ~s is not a symbol nor an integer."
  73. "The tag ~s is undefined."
  74. compiler::*info*
  75. compiler::make-tag
  76. compiler::copy-tag
  77. compiler::tag-p
  78. compiler::c2tagbody-local
  79. compiler::c2tagbody-body
  80. compiler::c2tagbody-clb
  81. compiler::c2tagbody-ccb
  82. compiler::c2go-local
  83. compiler::c2go-clb
  84. compiler::c2go-ccb
  85. :label
  86. :unwind-exit
  87. :var
  88. system::copy-structure
  89. compiler::make-info
  90. lisp::typep
  91. compiler::c1expr*
  92. compiler::c1nil
  93. compiler::add-object
  94. compiler::unwind-exit
  95. compiler::wt1
  96. compiler::c2expr
  97. compiler::vs-push
  98. compiler::wt-vs
  99. compiler::wt-clink
  100. compiler::clink
  101. compiler::ccb-vs-push
  102. compiler::wt-vs*
  103. compiler::too-few-args
  104. compiler::too-many-args
  105. compiler::cmperr
  106. compiler::cb
  107. compiler::lb
  108. compiler::unwind-no-exit
  109. compiler::wt-ccb-vs
  110. )
  111.